extract_diagonal Interface

public interface extract_diagonal

An interface to the diagonal extraction routines.


Module Procedures

private pure function extract_diagonal_dbl(a) result(diag)

Extracts the diagonal of a matrix.

Arguments

Type IntentOptional Attributes Name
real(kind=real64), intent(in), dimension(:,:) :: a

The M-by-N matrix.

Return Value real(kind=real64), allocatable, dimension(:)

The MIN(M, N) element array for the diagonal elements.

private pure function extract_diagonal_cmplx(a) result(diag)

Extracts the diagonal of a matrix.

Arguments

Type IntentOptional Attributes Name
complex(kind=real64), intent(in), dimension(:,:) :: a

The M-by-N matrix.

Return Value complex(kind=real64), allocatable, dimension(:)

The MIN(M, N) element array for the diagonal elements.

private pure function extract_diagonal_csr(a) result(diag)

Extracts the diagonal of a matrix.

Arguments

Type IntentOptional Attributes Name
class(csr_matrix), intent(in) :: a

The M-by-N matrix.

Return Value real(kind=real64), allocatable, dimension(:)

The MIN(M, N) element array for the diagonal elements.